home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Hy-Hyperi / HyperBBS 2.0.cpt / HyperBBS 2.0 / Hyper House / background_3188.xml < prev    next >
Extensible Markup Language  |  1992-07-14  |  3KB  |  77 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
  3. <background>
  4.     <id>3188</id>
  5.     <filler1>0</filler1>
  6.     <bitmap>BMAP_3840.pbm</bitmap>
  7.     <cantDelete> <false /> </cantDelete>
  8.     <showPict> <true /> </showPict>
  9.     <dontSearch> <false /> </dontSearch>
  10.     <link rel="stylesheet" type="text/css" href="stylesheet_4427.css" />
  11.     <part>
  12.         <id>21</id>
  13.         <type>button</type>
  14.         <visible> <true /> </visible>
  15.         <reserved5> 0 </reserved5>
  16.         <reserved4> 0 </reserved4>
  17.         <reserved3> 0 </reserved3>
  18.         <reserved2> 0 </reserved2>
  19.         <reserved1> 0 </reserved1>
  20.         <enabled> <true /> </enabled>
  21.         <rect>
  22.             <left>441</left>
  23.             <top>298</top>
  24.             <right>487</right>
  25.             <bottom>320</bottom>
  26.         </rect>
  27.         <style>roundrect</style>
  28.         <showName> <true /> </showName>
  29.         <highlight> <false /> </highlight>
  30.         <autoHighlight> <true /> </autoHighlight>
  31.         <sharedHighlight> <true /> </sharedHighlight>
  32.         <family>0</family>
  33.         <titleWidth>0</titleWidth>
  34.         <icon>0</icon>
  35.         <textAlign>center</textAlign>
  36.         <font>Chicago</font>
  37.         <textSize>12</textSize>
  38.         <textStyle>plain</textStyle>
  39.         <name>OK</name>
  40.         <script>on doItgo to next cardend doIt</script>
  41.     </part>
  42.     <part>
  43.         <id>23</id>
  44.         <type>field</type>
  45.         <visible> <true /> </visible>
  46.         <dontWrap> <false /> </dontWrap>
  47.         <dontSearch> <false /> </dontSearch>
  48.         <sharedText> <false /> </sharedText>
  49.         <fixedLineHeight> <true /> </fixedLineHeight>
  50.         <autoTab> <false /> </autoTab>
  51.         <lockText> <true /> </lockText>
  52.         <rect>
  53.             <left>12</left>
  54.             <top>126</top>
  55.             <right>491</right>
  56.             <bottom>291</bottom>
  57.         </rect>
  58.         <style>scrolling</style>
  59.         <autoSelect> <false /> </autoSelect>
  60.         <showLines> <false /> </showLines>
  61.         <wideMargins> <false /> </wideMargins>
  62.         <multipleLines> <false /> </multipleLines>
  63.         <reservedFamily> 0 </reservedFamily>
  64.         <titleWidth>0</titleWidth>
  65.         <icon>0</icon>
  66.         <textAlign>left</textAlign>
  67.         <font>Monaco</font>
  68.         <textSize>9</textSize>
  69.         <textStyle>plain</textStyle>
  70.         <textHeight>12</textHeight>
  71.         <name></name>
  72.         <script>-- Long</script>
  73.     </part>
  74.     <name>Show One Time</name>
  75.     <script>on openCardglobal userAreas, onLine, newUserAreas, QMsgFlgput true into QMsgFlgget the short name of this cardif (it is in userAreas) or (it is in newUserAreas) thenput false into QMsgFlggo to next cardexit openCard  --don't do this cardend ifpass openCardend openCardon closeCardglobal online, QMsgFlgif QMsgFlg thenif online then--skipelsemarkItReadend ifend ifpass closeCardend closeCardon cardFilledglobal newUserAreas, QMsgFlgif QMsgFlg thenif the short name of this card is "Number Chng Qmsg" thenget card field "Reply"if it is card field "Answer" thenmarkItReadgo to next cardexit cardFilledelsesend openCard to this card  --repeat the text againend ifelsemarkItReadgo to next cardexit cardFilledend ifend ifend cardFilledon markItReadglobal newUserAreasget the short name of this cardput it && the date && the time & return before newUserAreasend markItRead</script>
  76. </background>
  77.